home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / ARGCVIO.D < prev    next >
Encoding:
Modula Definition  |  1989-09-20  |  742 b   |  23 lines
  1. DEFINITION MODULE ArgCVIO;
  2.  
  3. (* Wertet I/O-Umleitungsangabe (mit '<','>') automatisch *)
  4. (* aus, importiert dazu das 'InOut' Modul !              *)
  5.  
  6. TYPE ArgStr = ARRAY [0..127] OF CHAR;
  7.  
  8.      PtrArgStr = POINTER TO ArgStr;
  9.  
  10.  
  11. PROCEDURE InitArgCV ( VAR ArgC : CARDINAL; VAR ArgV : ARRAY OF PtrArgStr );
  12.   (*
  13.    * Die mögliche I/O-Umleitung wird erst bei Aufruf dieser Prozedur durch-
  14.    * geführt.
  15.    *
  16.    * 'ArgC' enthält nach dem Aufruf die Anzahl der initialisierten ArgV-Felder.
  17.    * Das 'ArgV'-Feld sollte die Größe [0..ErlaubteArgumentAnzahl] haben.
  18.    * 'ArgV[0]' ist immer ein Leerstring, 'ArgV[1]' enthält das erste Argument.
  19.    * Das letzte gültige Argument steht demnach in 'ArgV[ArgC-1]'.
  20.    *)
  21.  
  22. END ArgCVIO.
  23.